23 CLR:FORA=49152TO49464:READX:POKEA,X:S=S+X:NEXTA
24 IFS<>34603THENPRINT" FEHLER IN DATAS!":END
25 PRINT"NO-LIST":PRINT"START MIT 'SYS49152'":PRINT"NACH SCHUTZ KEINE VAR. DEFINIEREN !"
26 DATA169,55,133,1,165,43,166,44,133,95,134,96,165,45,166,46,133,90,134
27 DATA91,216,105,152,133,88,144,1,232,134,89,133,45,134,46,32,191,163,165
28 DATA43,166,44,133,251,134,252,160,0,166,46,177,251,73,205,145,251,200
29 DATA208,247,228,251,144,4,230,252,208,239,165,43,166,44,133,251,134,252
30 DATA169,143,160,192,32,30,171,32,207,255,160,0,201,13,240,11,153,182
31 DATA192,32,207,255,200,192,39,144,241,160,0,185,161,192,145,251,200,192
32 DATA152,144,246,169,13,32,210,255,32,210,255,169,3,133,198,169,76,141
33 DATA119,2,169,201,141,120,2,169,13,141,121,2,76,131,164,69,78,84,69,82
34 DATA32,76,73,83,84,45,84,69,88,84,58,13,0,16,8,1,0,0,58,58,58,58,158
35 DATA50,49,49,50,0,62,8,2,0,20,20,32,32,32,32,32,32,32,32,32,32,32,32
36 DATA32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32,32
37 DATA32,32,32,32,32,0,0,0,160,0,185,78,8,153,0,4,200,16,247,76,0,4,169
38 DATA153,133,251,169,8,133,252,160,1,132,253,169,8,133,254,136,166,46
39 DATA169,226,141,2,3,169,252,141,3,3,177,251,73,205,145,253,200,208,247
40 DATA228,254,144,6,230,254,230,252,208,237,169,82,141,119,2,169,213,141
41 DATA120,2,169,58,141,121,2,169,13,141,122,2,169,4,133,198,76,131,164